home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
list 4+5+6+7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
61 lines
10 REM ********************************
11 REM * E R R O R *
12 REM ********************************
13 REM * ERGAENZUNG ZU SIMON'S BASIC *
14 REM * FORMAT: d~OR *
15 REM * GIBT drSTATUS AUS *
16 REM * > BEISPIEL: d~OR *
17 REM * ERGEBNIS: 00, OK,00,00 *
18 REM ********************************
19 K=0:PRINT" E R R O R [146] ?CHECKSUM ";
20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
21 DATA32,115,,201,176,240,3,76,138,136
22 DATA169,8,133,186,32,180,255,169,111
23 DATA133,185,32,150,255,32,165,255,32
24 DATA210,255,201,13,208,246,32,171
25 DATA255,76,116,145
26 POKE$87BE,186:POKE$87BF,191
27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"
30 REM *******************************T
31 REM * J O Y *
32 REM ********************************
33 REM * ERGAENZUNG ZU SIMON'S BASIC *
34 REM * FORMAT: dQ N *
35 REM * STELLT dQSTICKPORT EIN *
36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
37 REM * dQ2 (FUER PORT2)*
38 REM ********************************
39 K=0:PRINT" J O Y [146] ?CHECKSUM ";
40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
41 DATA32,115,,32,6,129,138,41,1,141
42 DATA213,136,76,42,130
43 POKE$88DA,111:POKE$88FC,16
44 POKE$8764,226:POKE$8765,191
45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"
50 REM ********************************
51 REM * D U M P *
52 REM ********************************
53 REM * BERICHTIGUNG DES *
54 REM * SIMON'S BASIC-BEFEHLS dL *
55 REM ********************************
59 K=0:PRINT" D U M P [146] ?CHECKSUM ";
60 FOR I=$9F9C TO $9FA7:READ J:POKE I,J:K=K+J:NEXT
61 DATA 160,4,32,57,160,136,208,250,234
62 DATA 234,234,234:POKE $80B9,221:POKE $808C,68
63 POKE $9FD6,240:POKE $9FD7,27:POKE $9FD8,200
64 FOR I=$9FF0 TO $9FFC:READ J:POKE I,J:K=K+J:NEXT
65 DATA 160,4,44,160,5,169,34,32,210,255,76,158,159
66 IFK=3409THENPRINT"OK":dG:PRINT"ERRO[164]
70 [143] ********************************
71 [143] * P A G E *
72 [143] ********************************
73 [143] * BERICHTIGUNG DES *
74 [143] * SIMON'S BASIC-BEFEHLS dK *
75 [143] ********************************
79 K[178]0:[153]" P A G E WAIT ?CHECKSUM ";
80 [129] I[178]$BFF2 [164] $BFFE:[135] J:[151] I,J:K[178]K[170]J:[130]
81 [131] 32,225,255,208,5,104,104,76,60
82 [131] 191,76,228,255
83 [151] $BF12,242:[151] $BF13,191
84 [139]K[178]1819[167][153]"OK":dG:[153]"ERROR